CD Action 48/cdactioncoverdisc482000.iso/Bonus/bon.exe/win 95 98/pcspyt.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2000-03-24 | 20KB | 662 lines

object Form1: TForm1
  Left = 46
  Top = 48
  Width = 640
  Height = 440
  Caption = 'PC'
  Color = 13023611
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 280
    Top = 248
    Width = 25
    Height = 35
    Stretch = True
    Visible = False
  end
  object Image2: TImage
    Left = 248
    Top = 248
    Width = 41
    Height = 35
    Stretch = True
    Visible = False
  end
  object BitBtn2: TBitBtn
    Left = 510
    Top = 371
    Width = 114
    Height = 22
    Hint = 'Exit the program without activating'
    Caption = 'Cancel'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = BitBtn2Click
    Kind = bkOK
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 619
    Height = 279
    Caption = 'Setup and Activate'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 4
      Top = 13
      Width = 601
      Height = 39
      AutoSize = False
      Caption =
        'Use this section to activate PC Spy. Upon activating, this progr' +
        'am will disappear, and screen logging will begin depending upon ' +
        'your setups just below. You can snap screen pictures of your com' +
        'puter, capturing'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object Label2: TLabel
      Left = 4
      Top = 40
      Width = 597
      Height = 30
      AutoSize = False
      Caption =
        'and saving whatever is viewed on your screen at that time. Vario' +
        'us options are listed below, and you can get detailed informatio' +
        'n by clicking the help button below.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object BitBtn1: TBitBtn
      Left = 500
      Top = 254
      Width = 110
      Height = 21
      Hint = 'Click here to activate the software with your settings! '
      Caption = ' Activate!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF3344444444444443337777777777777F334CCCCCCCCCC
        C43337777777777777F33444881B188444333777F3737337773333308881FF70
        33333337F3373337F3333330888BF770333333373F33F337333333330881F703
        3333333373F73F7333333333308B703333333333373F77333333333333080333
        3333333333777FF333333333301F103333333333377777FF3333333301B1F103
        333333337737777FF3333330881BFB7033333337F3737F77F333333088881F70
        333333F7F3337777FFF334448888888444333777FFFFFFF777F334CCCCCCCCCC
        C43337777777777777F334444444444444333777777777777733}
      NumGlyphs = 2
    end
    object GroupBox3: TGroupBox
      Left = 6
      Top = 75
      Width = 253
      Height = 174
      Caption = 'What Time To Begin? '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Label3: TLabel
        Left = 11
        Top = 17
        Width = 221
        Height = 28
        AutoSize = False
        Caption = 'What time do you want to start and stop logging screen images?'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label10: TLabel
        Left = 11
        Top = 100
        Width = 228
        Height = 29
        AutoSize = False
        Caption = 'How many screen images do you want to capture before quitting?'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object PanelStart: TPanel
        Left = 11
        Top = 47
        Width = 226
        Height = 41
        BevelInner = bvRaised
        BevelWidth = 2
        Color = 13023611
        TabOrder = 0
        object LblTime: TLabel
          Left = 7
          Top = 22
          Width = 45
          Height = 13
          Caption = 'LblTime'
        end
        object Label4: TLabel
          Left = 7
          Top = 6
          Width = 59
          Height = 13
          Caption = 'Start Time'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
        end
        object RadAMStr: TRadioButton
          Left = 168
          Top = 4
          Width = 41
          Height = 17
          Hint = 'Select AM to start logging in the morning'
          Caption = 'AM'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = RadamstrClick
        end
        object RadPMStr: TRadioButton
          Left = 168
          Top = 20
          Width = 41
          Height = 17
          Hint = 'Select PM to start logging in afternoon/night'
          Caption = 'PM'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = RadpmstrClick
        end
        object SpinHourStr: TSpinEdit
          Left = 80
          Top = 9
          Width = 38
          Height = 22
          Hint = 'The hour to start logging'
          EditorEnabled = False
          MaxValue = 12
          MinValue = 1
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          Value = 1
          OnChange = SpinhourStrChange
        end
        object SpinMinStr: TSpinEdit
          Left = 127
          Top = 9
          Width = 38
          Height = 22
          Hint = 'The minutes after the hour to start logging'
          EditorEnabled = False
          Increment = 5
          MaxValue = 55
          MinValue = 0
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Value = 0
          OnChange = SpinMinStrChange
        end
      end
      object PanelStop: TPanel
        Left = 11
        Top = 130
        Width = 226
        Height = 35
        BevelInner = bvRaised
        BevelWidth = 2
        Color = 13023611
        TabOrder = 1
        object Label5: TLabel
          Left = 95
          Top = 11
          Width = 30
          Height = 13
          AutoSize = False
        end
        object Label9: TLabel
          Left = 126
          Top = 11
          Width = 84
          Height = 13
          Caption = 'Total Pictures '
        end
        object ScrollTotal: TScrollBar
          Left = 11
          Top = 12
          Width = 79
          Height = 11
          Hint = 'Total pictures to secretly capture before stopping'
          Max = 9999
          Min = 1
          ParentShowHint = False
          Position = 1
          ShowHint = True
          TabOrder = 0
          OnChange = ScrollTotalChange
        end
      end
    end
    object GroupBox4: TGroupBox
      Left = 267
      Top = 75
      Width = 342
      Height = 174
      Caption = 'Picture Options'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object Label6: TLabel
        Left = 10
        Top = 16
        Width = 311
        Height = 45
        AutoSize = False
        Caption =
          'Picture compression: Select a small number for low image quality' +
          ' and small picture size. Select a high number for better image q' +
          'uality but larger picture size.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label8: TLabel
        Left = 12
        Top = 96
        Width = 301
        Height = 40
        AutoSize = False
        Caption =
          'How often should the screen capture be done? (It will stop when ' +
          'it reaches the total number of pictures you selected on the left' +
          ')'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Panel1: TPanel
        Left = 62
        Top = 60
        Width = 201
        Height = 32
        BevelInner = bvRaised
        BevelWidth = 2
        Color = 13023611
        TabOrder = 0
        object Label7: TLabel
          Left = 90
          Top = 9
          Width = 39
          Height = 13
          Caption = 'Label7'
        end
        object ScrollBar1: TScrollBar
          Left = 10
          Top = 10
          Width = 73
          Height = 12
          Hint = 'Image quality - helps save space on images'
          Min = 1
          ParentShowHint = False
          Position = 1
          ShowHint = True
          TabOrder = 0
          OnChange = ScrollBar1Change
        end
      end
      object Panel2: TPanel
        Left = 52
        Top = 139
        Width = 223
        Height = 30
        BevelInner = bvRaised
        BevelWidth = 2
        Color = 13023611
        TabOrder = 1
        object Label13: TLabel
          Left = 120
          Top = 8
          Width = 26
          Height = 13
          AutoSize = False
        end
        object LblEvery: TLabel
          Left = 86
          Top = 8
          Width = 33
          Height = 13
          Caption = 'Every'
        end
        object Label11: TLabel
          Left = 147
          Top = 8
          Width = 50
          Height = 13
          Caption = 'Seconds'
        end
        object ScrollBar2: TScrollBar
          Left = 9
          Top = 9
          Width = 73
          Height = 12
          Hint = 'Interval of time before each image is secretly captured'
          Max = 900
          Min = 5
          ParentShowHint = False
          Position = 5
          ShowHint = True
          TabOrder = 0
          OnChange = ScrollBar2Change
        end
      end
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 281
    Width = 487
    Height = 129
    Caption = 'View Logged Images'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object Image3: TImage
      Left = 228
      Top = 13
      Width = 86
      Height = 83
      Cursor = crHandPoint
      Stretch = True
      OnClick = Image3Click
    end
    object Imagehand: TImage
      Left = 320
      Top = 16
      Width = 35
      Height = 33
      Picture.Data = {<image001.ico>}
      Visible = False
    end
    object Labelinfo: TLabel
      Left = 359
      Top = 21
      Width = 52
      Height = 26
      Caption = 'Click To Enlarge'
      Visible = False
      WordWrap = True
    end
    object Lblfiletime: TLabel
      Left = 323
      Top = 61
      Width = 153
      Height = 30
      AutoSize = False
      Caption = 'Lblfiletime'
      Visible = False
      WordWrap = True
    end
    object ListBox1: TListBox
      Left = 3
      Top = 14
      Width = 208
      Height = 55
      ItemHeight = 13
      TabOrder = 0
      OnClick = ListBox1Click
    end
    object BitBtn3: TBitBtn
      Left = 5
      Top = 74
      Width = 103
      Height = 21
      Hint = 'Delete the highlighted image'
      Caption = 'Delete Image'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BitBtn3Click
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777770000000777777777777777770000000777777777777770F700000007777
        0F777777777770000000777000F7777770F770000000777000F777770F777000
        00007777000F77700F777000000077777000F700F7777000000077777700000F
        7777700000007777777000F777777000000077777700000F7777700000007777
        7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
        00007700F7777777700F70000000777777777777777770000000777777777777
        777770000000}
    end
    object Cmdclearall: TBitBtn
      Left = 116
      Top = 74
      Width = 95
      Height = 21
      Hint = 'Delete all stored images'
      Caption = 'Clear All'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = CmdclearallClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F5555000555555505555577755555557555}
      NumGlyphs = 2
    end
    object BitBtn5: TBitBtn
      Left = 5
      Top = 100
      Width = 103
      Height = 21
      Hint = 'Save the capture image as a separate JPEG image'
      Caption = 'Save as Jpeg'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BitBtn5Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777770080000000800770330888887703077033088888770307703308888877
        0307703300000000030770333333333333077030000000003307703077777777
        0307703077777777030770307777777703077030777777770307703077777777
        0007703077777777070770000000000000077777777777777777}
    end
    object BitBtn6: TBitBtn
      Left = 116
      Top = 100
      Width = 95
      Height = 21
      Hint = 'Open the captured image in your Paintbrush bitmap viewer'
      Caption = 'Paintbrush'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BitBtn6Click
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD
        DDDDDDDDDDDDDD000000DDDDDDD000DDDDDDDD000000DDDDDD0FBF0DDDDDDD00
        0000DDDDD0F8FBF0DDDDDD000000DDDD0F8F78BF0DDDDD000000DDD0F8F78BFB
        80DDDD000000DD0F8F78BFB8770DDD000000DDD0F78BFB87770DDD000000DDDD
        00BFB87770DDDD000000DDDDDD0B8777840DDD000000DDDDDDD077704440DD00
        0000DDDDDDDD000D04440D000000DDDDDDDDDDDDD0440D000000DDDDDDDDDDDD
        DD00DD000000DDDDDDDDDDDDDDDDDD000000}
    end
  end
  object Cmdhelp: TBitBtn
    Left = 510
    Top = 345
    Width = 114
    Height = 22
    Hint = 'Help faq'
    Caption = 'Help'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = CmdhelpClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
      33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
      FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
      FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
      FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
      FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
      FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
      3333333773FFFF77333333333FBFBF3333333333377777333333}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 510
    Top = 319
    Width = 114
    Height = 22
    Hint = 'Various software downloads for you to try'
    Caption = 'More Software'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = BitBtn4Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333FF3333333333333003333
      3333333333773FF3333333333309003333333333337F773FF333333333099900
      33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
      99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
      33333333337F3F77333333333309003333333333337F77333333333333003333
      3333333333773333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 590
    Top = 48
  end
  object SavePictureDialog1: TSavePictureDialog
    Filter =
      'All (*.bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf|Bitmaps (*' +
      '.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf' +
      '|Metafiles (*.wmf)|*.wmf'
    Left = 503
    Top = 285
  end
end